******************************************************************************************************************
*		
*		Tile: Partisan Poll Watchers and Electoral Manipulation
*
*		Authors: Sergio Ascencio and Miguel R. Rueda
* 
*		Description: results from paper and appendix that do not involve strategic model estimation
*
******************************************************************************************************************




cd "C:\Users\mrueda\Documents\MATLAB\Party_delegates\R&R\replication\data"
set more off

use replication_precinct_level.dta,clear


***Paper***
xtset id_section year2, generic

**Table 1**
foreach var in  PAN PRI{
	xtreg share_`var'_c c.RC_PAN_c c.RC_PRI_c RC_others i.year lcasillas school_ic l_margin lpop local gov_`var' ,fe vce(cluster state_district)
	xtreg share_`var'_c c.RC_PAN_c c.RC_PRI_c RC_others i.year lcasillas school_ic l_margin lpop local gov_`var' c.d_registered_rep_PRI_c c.d_registered_rep_PAN_c d_registered_rep_others if non_regis==0,fe vce(cluster state_district)
	xtreg share_`var'_c c.RC_PAN_c##c.RC_PRI_c RC_others i.year lcasillas school_ic l_margin lpop local gov_`var' c.d_registered_rep_PRI_c##c.d_registered_rep_PAN_c d_registered_rep_others if non_regis==0,fe vce(cluster state_district)
}

foreach var in turnout share_null{
	xtreg `var' c.RC_PAN_c##c.RC_PRI_c RC_others i.year lcasillas school_ic l_margin  lpop local gov_PAN gov_PRI  c.d_registered_rep_PRI_c##c.d_registered_rep_PAN_c c.d_registered_rep_others if non_regis==0,fe vce(cluster state_district)
}

**Figure 3**
quietly: xtreg share_null c.RC_PAN_c##c.d_frac_line c.RC_PRI_c##c.d_frac_line RC_others i.year lcasillas school_ic l_margin lpop local gov_PRI gov_PAN c.d_registered_rep_PRI_c c.d_registered_rep_PAN_c d_registered_rep_others if non_regis==0,fe vce(cluster state_district)
margins, dydx(d_frac_line) at(RC_PRI_c==0 RC_PAN_c==0) at(RC_PRI_c==1 RC_PAN_c==1) 
	marginsplot,recast(scatter) xscale(range(0.5 2.5))

quietly: xtreg turnout c.RC_PAN_c##c.d_frac_line c.RC_PRI_c##c.d_frac_line RC_others i.year lcasillas school_ic l_margin lpop local gov_PRI gov_PAN c.d_registered_rep_PRI_c c.d_registered_rep_PAN_c d_registered_rep_others if non_regis==0,fe vce(cluster state_district)
margins, dydx(d_frac_line) at(RC_PRI_c==0 RC_PAN_c==0) at(RC_PRI_c==1 RC_PAN_c==1) 
	marginsplot,recast(scatter) xscale(range(0.5 2.5))


***Appendix***

**Figure 1**
histogram RC_PAN_c
histogram RC_PRI_c

**Table 2**
quietly: xtreg share_PAN_c c.RC_PAN_c c.RC_PRI_c RC_others i.year lcasillas school_ic l_margin lpop local gov_PAN,fe vce(cluster state_district)
summ share_PAN_c share_PRI_c share_PRD_c turnout share_null RC_PAN_c RC_PRI_c RC_PRD_c dist_city dist_pan dist_pri l_margin gov_PAN gov_PRI casillas population_ic school_ic local if e(sample)
quietly: xtreg share_null c.RC_PAN_c##c.RC_PRI_c RC_others i.year lcasillas school_ic l_margin  lpop local gov_PAN gov_PRI  c.d_registered_rep_PRI_c##c.d_registered_rep_PAN_c c.d_registered_rep_others if non_regis==0,fe vce(cluster state_district)
summ d_registered_rep_PAN_c d_registered_rep_PRI_c d_registered_rep_PRD_c if e(sample)

**Table 3**
foreach var in  PAN PRI{
	xtreg share_`var'_c c.RC_PAN_c##c.RC_PRI_c RC_others  lcasillas school_ic l_margin lpop local gov_`var' i.year##c.(basic_amen ilit_s linsurance) c.d_registered_rep_PRI_c##c.d_registered_rep_PAN_c d_registered_rep_others if non_regis==0,fe vce(cluster state_district)

}	
foreach var in turnout share_null{
xtreg `var' c.RC_PAN_c##c.RC_PRI_c RC_others  lcasillas school_ic l_margin  lpop local gov_PAN gov_PRI i.year##c.(basic_amen ilit_s linsurance) c.d_registered_rep_PRI_c##c.d_registered_rep_PAN_c c.d_registered_rep_others if non_regis==0,fe vce(cluster state_district)
}
				
**Table4**
xtset year_state_district id_section, generic

foreach var in  PAN PRI{
	xtreg share_`var'_c c.RC_PAN_c c.RC_PRI_c RC_others i.year lcasillas school_ic gov_`var' l_margin lpop local gov_`var',fe vce(cluster state_district)
	xtreg share_`var'_c c.RC_PAN_c##c.RC_PRI_c RC_others i.year lcasillas school_ic gov_`var' l_margin lpop local gov_`var',fe vce(cluster state_district)
}
foreach var in turnout share_null{
	xtreg `var' c.RC_PAN_c##c.RC_PRI_c c.RC_others i.year lcasillas school_ic l_margin  lpop local gov_PAN gov_PRI,fe vce(cluster state_district)
}
		
**Estimates used in Figure 2**
xtset id_section year2, generic
quietly: xtreg share_PAN_c d_RC_PAN_c##d_RC_PRI_c RC_others i.year lcasillas school_ic l_margin lpop local gov_PAN c.d_registered_rep_PRI_c##c.d_registered_rep_PAN_c d_registered_rep_others if non_regis==0,fe vce(cluster state_district)

	*low PAN coverage (low PRI coverage)
	lincom 0.d_RC_PAN_c+0.d_RC_PAN_c#0.d_RC_PRI_c+0.d_RC_PRI_c
	*medium PAN coverage (low PRI coverage)
	lincom 1.d_RC_PAN_c+1.d_RC_PAN_c#0.d_RC_PRI_c+0.d_RC_PRI_c
	*high PAN coverage (low PRI coverage)
	lincom 2.d_RC_PAN_c+2.d_RC_PAN_c#0.d_RC_PRI_c+0.d_RC_PRI_c	
			
	*low PAN coverage (medium PRI coverage)
	lincom 0.d_RC_PAN_c+0.d_RC_PAN_c#1.d_RC_PRI_c+1.d_RC_PRI_c
	*medium PAN coverage (medium PRI coverage)
	lincom 1.d_RC_PAN_c+1.d_RC_PAN_c#1.d_RC_PRI_c+1.d_RC_PRI_c
	*high PAN coverage (medium PRI coverage)
	lincom 2.d_RC_PAN_c+2.d_RC_PAN_c#1.d_RC_PRI_c+1.d_RC_PRI_c
	
	*low PAN coverage (high PRI coverage)
	lincom 0.d_RC_PAN_c+0.d_RC_PAN_c#2.d_RC_PRI_c+2.d_RC_PRI_c
	*medium PAN coverage (high PRI coverage)
	lincom 1.d_RC_PAN_c+1.d_RC_PAN_c#2.d_RC_PRI_c+2.d_RC_PRI_c
	*high PAN coverage (high PRI coverage)
	lincom 2.d_RC_PAN_c+2.d_RC_PAN_c#2.d_RC_PRI_c+2.d_RC_PRI_c	
	
quietly: xtreg share_PRI_c d_RC_PAN_c##d_RC_PRI_c RC_others i.year lcasillas school_ic l_margin lpop local gov_PRI c.d_registered_rep_PRI_c##c.d_registered_rep_PAN_c d_registered_rep_others if non_regis==0,fe vce(cluster state_district)
	
	*low PRI coverage (low PAN coverage)
	lincom 0.d_RC_PRI_c+0.d_RC_PAN_c#0.d_RC_PRI_c+0.d_RC_PAN_c
	*medium PRI coverage (low PAN coverage)
	lincom 1.d_RC_PRI_c+0.d_RC_PAN_c#1.d_RC_PRI_c+0.d_RC_PAN_c
	*high PRI coverage (low PAN coverage)
	lincom 2.d_RC_PRI_c+0.d_RC_PAN_c#2.d_RC_PRI_c+0.d_RC_PAN_c
	
	*low PRI coverage (medium PAN coverage)
	lincom 0.d_RC_PRI_c+1.d_RC_PAN_c#0.d_RC_PRI_c+1.d_RC_PAN_c
	*medium PRI coverage (medium PAN coverage)
	lincom 1.d_RC_PRI_c+1.d_RC_PAN_c#1.d_RC_PRI_c+1.d_RC_PAN_c
	*high PRI coverage (medium PAN coverage)
	lincom 2.d_RC_PRI_c+1.d_RC_PAN_c#2.d_RC_PRI_c+1.d_RC_PAN_c	

	*low PRI coverage (high PAN coverage)
	lincom 0.d_RC_PRI_c+2.d_RC_PAN_c#0.d_RC_PRI_c+2.d_RC_PAN_c
	*medium PRI coverage (high PAN coverage)
	lincom 1.d_RC_PRI_c+2.d_RC_PAN_c#1.d_RC_PRI_c+2.d_RC_PAN_c
	*high PRI coverage (high PAN coverage)
	lincom 2.d_RC_PRI_c+2.d_RC_PAN_c#2.d_RC_PRI_c+2.d_RC_PAN_c
	
	
**Table 5 (precinct level results)**
reg d_irregular c.RC_PAN_c c.RC_PRI_c RC_others lcasillas school_ic l_margin lpop local gov_PAN gov_PRI c.d_registered_rep_PRI_c c.d_registered_rep_PAN_c d_registered_rep_others if year==2009&non_regis==0,  vce(cluster state_district)
reg d_irregular c.RC_PAN_c##c.RC_PRI_c RC_others lcasillas school_ic l_margin lpop local gov_PAN gov_PRI c.d_registered_rep_PRI_c##c.d_registered_rep_PAN_c d_registered_rep_others if year==2009&non_regis==0,  vce(cluster state_district)
areg d_irregular c.RC_PAN_c c.RC_PRI_c RC_others lcasillas school_ic l_margin lpop local gov_PAN gov_PRI c.d_registered_rep_PRI_c c.d_registered_rep_PAN_c d_registered_rep_others if year==2009&non_regis==0, a(state_district) vce(cluster state_district)
areg d_irregular c.RC_PAN_c##c.RC_PRI_c RC_others lcasillas school_ic l_margin lpop local gov_PAN gov_PRI c.d_registered_rep_PRI_c##c.d_registered_rep_PAN_c d_registered_rep_others if year==2009&non_regis==0, a(state_district) vce(cluster state_district)
	

**Estimates used in Figure 3**	
quietly: reg share_PAN_c d_RC_PAN_c##d_RC_PRI_c RC_others lcasillas school_ic l_margin lpop local gov_PAN  l.turnout l.diff_PRI_PAN ldist_city ldist_pan if non_regis==0&year>=2009, vce(cluster state_district)

	*low PAN coverage (low PRI coverage)
	lincom 0.d_RC_PAN_c+0.d_RC_PAN_c#0.d_RC_PRI_c+0.d_RC_PRI_c
	*medium PAN coverage (low PRI coverage)
	lincom 1.d_RC_PAN_c+1.d_RC_PAN_c#0.d_RC_PRI_c+0.d_RC_PRI_c
	*high PAN coverage (low PRI coverage)
	lincom 2.d_RC_PAN_c+2.d_RC_PAN_c#0.d_RC_PRI_c+0.d_RC_PRI_c	
			
	*low PAN coverage (medium PRI coverage)
	lincom 0.d_RC_PAN_c+0.d_RC_PAN_c#1.d_RC_PRI_c+1.d_RC_PRI_c
	*medium PAN coverage (medium PRI coverage)
	lincom 1.d_RC_PAN_c+1.d_RC_PAN_c#1.d_RC_PRI_c+1.d_RC_PRI_c
	*high PAN coverage (medium PRI coverage)
	lincom 2.d_RC_PAN_c+2.d_RC_PAN_c#1.d_RC_PRI_c+1.d_RC_PRI_c
	
	*low PAN coverage (high PRI coverage)
	lincom 0.d_RC_PAN_c+0.d_RC_PAN_c#2.d_RC_PRI_c+2.d_RC_PRI_c
	*medium PAN coverage (high PRI coverage)
	lincom 1.d_RC_PAN_c+1.d_RC_PAN_c#2.d_RC_PRI_c+2.d_RC_PRI_c
	*high PAN coverage (high PRI coverage)
	lincom 2.d_RC_PAN_c+2.d_RC_PAN_c#2.d_RC_PRI_c+2.d_RC_PRI_c	
	
quietly: reg share_PRI_c d_RC_PAN_c##d_RC_PRI_c RC_others lcasillas school_ic l_margin lpop local gov_PRI  l.turnout l.diff_PRI_PAN ldist_city ldist_pri if non_regis==0&year>=2009, vce(cluster state_district)

	*low PRI coverage (low PAN coverage)
	lincom 0.d_RC_PRI_c+0.d_RC_PAN_c#0.d_RC_PRI_c+0.d_RC_PAN_c
	*medium PRI coverage (low PAN coverage)
	lincom 1.d_RC_PRI_c+0.d_RC_PAN_c#1.d_RC_PRI_c+0.d_RC_PAN_c
	*high PRI coverage (low PAN coverage)
	lincom 2.d_RC_PRI_c+0.d_RC_PAN_c#2.d_RC_PRI_c+0.d_RC_PAN_c
	
	*low PRI coverage (medium PAN coverage)
	lincom 0.d_RC_PRI_c+1.d_RC_PAN_c#0.d_RC_PRI_c+1.d_RC_PAN_c
	*medium PRI coverage (medium PAN coverage)
	lincom 1.d_RC_PRI_c+1.d_RC_PAN_c#1.d_RC_PRI_c+1.d_RC_PAN_c
	*high PRI coverage (medium PAN coverage)
	lincom 2.d_RC_PRI_c+1.d_RC_PAN_c#2.d_RC_PRI_c+1.d_RC_PAN_c	

	*low PRI coverage (high PAN coverage)
	lincom 0.d_RC_PRI_c+2.d_RC_PAN_c#0.d_RC_PRI_c+2.d_RC_PAN_c
	*medium PRI coverage (high PAN coverage)
	lincom 1.d_RC_PRI_c+2.d_RC_PAN_c#1.d_RC_PRI_c+2.d_RC_PAN_c
	*high PRI coverage (high PAN coverage)
	lincom 2.d_RC_PRI_c+2.d_RC_PAN_c#2.d_RC_PRI_c+2.d_RC_PAN_c
		
	
**Table 7**
foreach var in  PAN PRI {
	reg share_`var'_c l.share_`var'_c c.RC_PAN_c c.RC_PRI_c RC_others i.year lcasillas school_ic l_margin lpop local gov_`var' , vce(cluster state_district)
	reg share_`var'_c l.share_`var'_c c.RC_PAN_c##c.RC_PRI_c RC_others i.year lcasillas school_ic l_margin lpop local gov_`var' , vce(cluster state_district)
		}
foreach var in turnout share_null{
	reg `var' l.`var' c.RC_PAN_c##c.RC_PRI_c RC_others i.year lcasillas school_ic l_margin  lpop local gov_PAN gov_PRI, vce(cluster state_district)
}
		
		
**Table 8**
xtreg share_PAN_c c.RC_PAN_c##c.d_frac_line c.RC_PRI_c##c.d_frac_line RC_others i.year lcasillas school_ic l_margin lpop local gov_PAN c.d_registered_rep_PRI_c c.d_registered_rep_PAN_c d_registered_rep_others if non_regis==0,fe vce(cluster state_district)
lincom d_frac_line+RC_PAN_c#c.d_frac_line
lincom d_frac_line+RC_PRI_c#c.d_frac_line
lincom d_frac_line+RC_PRI_c#c.d_frac_line+RC_PAN_c#c.d_frac_line

xtreg share_PRI_c c.RC_PAN_c##c.d_frac_line c.RC_PRI_c##c.d_frac_line RC_others i.year lcasillas school_ic l_margin lpop local gov_PRI c.d_registered_rep_PRI_c c.d_registered_rep_PAN_c d_registered_rep_others if non_regis==0,fe vce(cluster state_district)
lincom d_frac_line+RC_PAN_c#c.d_frac_line
lincom d_frac_line+RC_PRI_c#c.d_frac_line
lincom d_frac_line+RC_PRI_c#c.d_frac_line+RC_PAN_c#c.d_frac_line

xtreg turnout c.RC_PAN_c##c.d_frac_line c.RC_PRI_c##c.d_frac_line RC_others i.year lcasillas school_ic l_margin lpop local gov_PRI gov_PAN c.d_registered_rep_PRI_c c.d_registered_rep_PAN_c d_registered_rep_others if non_regis==0,fe vce(cluster state_district)
lincom d_frac_line+RC_PAN_c#c.d_frac_line
lincom d_frac_line+RC_PRI_c#c.d_frac_line
lincom d_frac_line+RC_PRI_c#c.d_frac_line+RC_PAN_c#c.d_frac_line

xtreg share_null c.RC_PAN_c##c.d_frac_line c.RC_PRI_c##c.d_frac_line RC_others i.year lcasillas school_ic l_margin lpop local gov_PRI gov_PAN c.d_registered_rep_PRI_c c.d_registered_rep_PAN_c d_registered_rep_others if non_regis==0,fe vce(cluster state_district)
lincom d_frac_line+RC_PAN_c#c.d_frac_line
lincom d_frac_line+RC_PRI_c#c.d_frac_line
lincom d_frac_line+RC_PRI_c#c.d_frac_line+RC_PAN_c#c.d_frac_line

xtreg share_PAN_c c.RC_PAN_c##c.sae c.RC_PRI_c##c.sae RC_others i.year lcasillas school_ic l_margin lpop local gov_PAN c.d_registered_rep_PRI_c c.d_registered_rep_PAN_c d_registered_rep_others if non_regis==0,fe vce(cluster state_district)
lincom sae+RC_PAN_c#c.sae
lincom sae+RC_PRI_c#c.sae
lincom sae+RC_PRI_c#c.sae+RC_PAN_c#c.sae

xtreg share_PRI_c c.RC_PAN_c##c.sae c.RC_PRI_c##c.sae RC_others i.year lcasillas school_ic l_margin lpop local gov_PRI c.d_registered_rep_PRI_c c.d_registered_rep_PAN_c d_registered_rep_others if non_regis==0,fe vce(cluster state_district)
lincom sae+RC_PAN_c#c.sae
lincom sae+RC_PRI_c#c.sae
lincom sae+RC_PRI_c#c.sae+RC_PAN_c#c.sae

xtreg turnout c.RC_PAN_c##c.sae c.RC_PRI_c##c.sae RC_others i.year lcasillas school_ic l_margin lpop local gov_PRI gov_PAN c.d_registered_rep_PRI_c c.d_registered_rep_PAN_c d_registered_rep_others if non_regis==0,fe vce(cluster state_district)
lincom sae+RC_PAN_c#c.sae
lincom sae+RC_PRI_c#c.sae
lincom sae+RC_PRI_c#c.sae+RC_PAN_c#c.sae

xtreg share_null c.RC_PAN_c##c.sae c.RC_PRI_c##c.sae RC_others i.year lcasillas school_ic l_margin lpop local gov_PRI gov_PAN c.d_registered_rep_PRI_c c.d_registered_rep_PAN_c d_registered_rep_others if non_regis==0,fe vce(cluster state_district)
lincom sae+RC_PAN_c#c.sae
lincom sae+RC_PRI_c#c.sae
lincom sae+RC_PRI_c#c.sae+RC_PAN_c#c.sae


***Table 9***
quietly: xtreg share_PAN_c RC_PAN_c RC_PRI_c RC_others i.year lcasillas school_ic l_margin lpop local gov_PAN c.d_registered_rep_PRI_c c.d_registered_rep_PAN_c d_registered_rep_others if non_regis==0,fe vce(cluster state_district)

*Oster 
psacalc delta RC_PAN_c,rmax(0.1755)
psacalc delta RC_PRI_c,rmax(0.1755)
psacalc delta RC_others,rmax(0.1755)

*Equal explanatory power
psacalc delta RC_PAN_c,rmax(0.239)
psacalc delta RC_PRI_c,rmax(0.269)
psacalc delta RC_others,rmax(0.26)

*1.5 explanatory power
psacalc delta RC_PAN_c,rmax(0.291)
psacalc delta RC_PRI_c,rmax(0.336)
psacalc delta RC_others,rmax(0.325)
	
quietly: xtreg share_PRI_c RC_PAN_c RC_PRI_c RC_others i.year lcasillas school_ic l_margin lpop local gov_PRI c.d_registered_rep_PRI_c c.d_registered_rep_PAN_c d_registered_rep_others if non_regis==0,fe vce(cluster state_district)

*Oster 1.3 Rhat
psacalc delta RC_PAN_c,rmax(0.279)
psacalc delta RC_PRI_c,rmax(0.279)
psacalc delta RC_others,rmax(0.279)	
	
*Equal explnatory power
psacalc delta RC_PAN_c,rmax(0.414)
psacalc delta RC_PRI_c,rmax(0.43)
psacalc delta RC_others,rmax(0.419)

*1.5 explnatory power
psacalc delta RC_PAN_c,rmax(0.5135)
psacalc delta RC_PRI_c,rmax(0.5375)
psacalc delta RC_others,rmax(0.521)

		
**Figure 5**
xtreg share_PRI_c c.RC_PAN_c##c.RC_PRI_c c.RC_PAN_c##c.RC_PRD_c c.RC_PRD_c##c.RC_PRI_c RC_others2 i.year lcasillas school_ic l_margin lpop local gov_PRI c.d_registered_rep_PRI_c##c.d_registered_rep_PAN_c c.d_registered_rep_PRD_c##c.d_registered_rep_PAN_c c.d_registered_rep_PRI_c##c.d_registered_rep_PRD_c d_registered_rep_others2 if non_regis==0,fe vce(cluster state_district)
	
	*Here we list only payoffs that can't be directly  taken from regression output
	
	*PAN F, PRD F, PRI F
	lincom RC_PRI_c+RC_PRD_c+c.RC_PAN_c#c.RC_PRI_c+c.RC_PAN_c#c.RC_PRD_c+c.RC_PRD_c#c.RC_PRI_c +-.0163141
	*PAN F, PRD N, PRI F
	lincom RC_PRI_c+c.RC_PAN_c#c.RC_PRI_c+-.0163141
	*PAN F, PRD F, PRI N
	lincom RC_PRD_c+c.RC_PAN_c#c.RC_PRD_c+-.0163141
	*PAN N, PRD F, PRI F
	lincom RC_PRI_c+RC_PRD_c+c.RC_PRD_c#c.RC_PRI_c 
	
xtreg share_PAN_c c.RC_PAN_c##c.RC_PRI_c c.RC_PAN_c##c.RC_PRD_c c.RC_PRD_c##c.RC_PRI_c RC_others2 i.year lcasillas school_ic l_margin lpop local gov_PAN c.d_registered_rep_PRI_c##c.d_registered_rep_PAN_c c.d_registered_rep_PRD_c##c.d_registered_rep_PAN_c c.d_registered_rep_PRI_c##c.d_registered_rep_PRD_c d_registered_rep_others2 if non_regis==0,fe vce(cluster state_district)

	*PAN F, PRD F, PRI F
	lincom RC_PRI_c+RC_PRD_c+RC_PAN_c+c.RC_PAN_c#c.RC_PRI_c+c.RC_PAN_c#c.RC_PRD_c+c.RC_PRD_c#c.RC_PRI_c 
	*PAN F, PRD N, PRI F
	lincom RC_PRI_c+RC_PAN_c+c.RC_PAN_c#c.RC_PRI_c 
	*PAN F, PRD F, PRI N
	lincom RC_PRD_c+RC_PAN_c+c.RC_PAN_c#c.RC_PRD_c 
	*PAN N, PRD F, PRI F
	lincom RC_PRI_c+RC_PRD_c+c.RC_PRD_c#c.RC_PRI_c 

	
xtreg share_PRD_c c.RC_PAN_c##c.RC_PRI_c c.RC_PAN_c##c.RC_PRD_c c.RC_PRD_c##c.RC_PRI_c RC_others2 i.year lcasillas school_ic l_margin lpop local gov_PRD c.d_registered_rep_PRI_c##c.d_registered_rep_PAN_c c.d_registered_rep_PRD_c##c.d_registered_rep_PAN_c c.d_registered_rep_PRI_c##c.d_registered_rep_PRD_c d_registered_rep_others2 if non_regis==0,fe vce(cluster state_district)

	*PAN F, PRD F, PRI F
	lincom RC_PRI_c+RC_PRD_c+.0057067+c.RC_PAN_c#c.RC_PRI_c+c.RC_PAN_c#c.RC_PRD_c+c.RC_PRD_c#c.RC_PRI_c 
	*PAN F, PRD N, PRI F
	lincom RC_PRI_c+.0057067+c.RC_PAN_c#c.RC_PRI_c 
	*PAN F, PRD F, PRI N
	lincom RC_PRD_c+.0057067+c.RC_PAN_c#c.RC_PRD_c 
	*PAN N, PRD F, PRI F
	lincom RC_PRI_c+RC_PRD_c+c.RC_PRD_c#c.RC_PRI_c 

	
	
